 |
|
|
| Location; |
|
Trerice House
Newquay,
Cornwall
TR8 4PG
Tel: 01637 875404
Opening times: Please arrive in good
time to ensure your tour can be completed.
Open 28 February to 1 November 2009, daily
except Fridays.
House: 11am-5pm, last admission half an hour before closing.
Garden and Tea Room open: 10.30am-5pm. Last orders for Tea
Room at 4.30pm, lunches available 12 noon to 2pm.
|
|
| |
| |
TRERICE HOUSE & GARDENS
Magnificent Elizabethan Manor House,
Delightful, small secluded Elizabethan manor house, built
in 1571. Contains fine fireplaces, ceilings, furniture and clocks. Summer
garden with unusual plants, orchard. Shop in house and tea-room in barn.
First class facilities for visitors with disabilities. There is now a
Tudor vegetable garden behind the Barn, and various activities are available
for children of all ages.
Trerice is a small Elizabethan manor house built of buff-coloured
limestone. The house is set in a quiet valley, approached by a narrow,
winding lane. .
The house was built in 1573 by Sir John Arundell , replacing
a home that he inherited from his father. Sir John's father, also called
Sir John, making his fortune in the service of his country; knighted after
the battle of the Spurs, was Esquire of the Body to Henry VIII before
going on to serve under King Edward VI and Queen Mary.
The Arundell family supported the Royalist cause during
the English Civil War and some a degree of financial hardships as a consequence.
At the Restoration of the Monarchy their fortunes revived.
The Arundells lived owned Trerice for over 400 years; the
property passing to the Acland family of Killerton in Devon in 1802. The
property was again placed on the market in 1915, changing hands several
times before finally being acquired for the Nation by the National Trust
in 1953.
|
<%
'sql = "SELECT [Accommodation_Type], [ID], [Town], [Local Area], [Postcode], [Website Text], [Establishment and Town],[URL],[Show],[HolidayAgency] From Clients WHERE ([Local Area] Like '%Newquay%'AND [Show] NOT LIKE '%Hide%' AND [HolidayAgency] NOT LIKE '%Y%') "
sql = "SELECT [Accommodation_Type], [ID], [Town], [Local Area], [Telephone], [Location_Holder], [Postcode], [HERITAGE-TRAIL], [Checked Gradings], [Facilities for the Disabled], [Website Text], [WCTB/ETB/CTB], [URL],[Show], [Establishment and Town] From Clients WHERE (([Postcode] Like '%TR7 %' OR [Postcode] Like '%TR8 %') AND [HERITAGE-TRAIL] Like '%Her%') "
randomize timer
ordervalue = Int((18 * Rnd()) + 1)
'response.write "The Value is now:" & ordervalue
Select Case ordervalue
Case 1
sql = sql & " ORDER BY [Establishment and Town]"
Case 2
sql = sql & " ORDER BY [Postcode]"
Case 3
sql = sql & " ORDER BY [ID], [Establishment and Town]"
Case 4
sql = sql & " ORDER BY [Telephone] "
Case 5
sql = sql & " ORDER BY [Website Text] "
Case 6
sql = sql & " ORDER BY [Town] "
Case 7
sql = sql & " ORDER BY [Establishment and Town] desc"
Case 8
sql = sql & " ORDER BY [Postcode] desc"
Case 9
sql = sql & " ORDER BY [ID], [Establishment and Town] desc"
Case 10
sql = sql & " ORDER BY [Telephone] desc"
Case 11
sql = sql & " ORDER BY [Website Text] desc"
Case 12
sql = sql & " ORDER BY [Town] desc "
Case 13
sql = sql & " ORDER BY [Establishment and Town], [Telephone] desc"
Case 14
sql = sql & " ORDER BY [Postcode], [Telephone] desc"
Case 15
sql = sql & " ORDER BY [ID] desc , [Establishment and Town]"
Case 16
sql = sql & " ORDER BY [Telephone], [Website Text]"
Case 17
sql = sql & " ORDER BY [Website Text] , [ID] desc"
Case 18
sql = sql & " ORDER BY [Town], [ID] desc "
End Select
' sql = sql & " ORDER BY [Accommodation_Type] desc "
%> <%' Open Connection
dim objConn
dim objRec
set objConn = Server.CreateObject("ADODB.Connection")
set objRec = Server.CreateObject("ADODB.Recordset")
' set the cursor location for record count
objRec.CursorLocation = 3
objConn.Open "Driver={Microsoft Access driver (*.mdb)};DBQ=d:\wwwdata\pub-domains\www.westcountry-online.com\accommodationdata\database\accommodationdata.mdb"
objRec.Open sql, objConn
'objRec.Open "Clients", objConn, 0,1,2 %>
<%
' trap any errors
On Error Resume Next
' count the number of records found
if objRec.RecordCount = 1 Then
Response.write "Cornwall Online has one Character propertie offering Accommodation in this area"
Else
Response.write " Cornwall Online has " & objRec.RecordCount & " Character properties offering Accommodation in this area "
End if
' Say if their are no records found
if objRec.eof Then
Response.Write " - "
End If
' Process Row
objRec.MoveFirst
x = 0
intCount = 0
do while Not objRec.eof
intCount = intCount + 1
If intCount mod 2 = 0 Then
bgcolor="#f9f9e8"
aligncode="right"
Else
bgcolor="White"
aligncode="left"
End If
%>
>
| |
>
|
"><%=objRec("Establishment and Town")%>
"><%=objRec("Town")%>
|
<%if objRec("stamp")= "Yes" Then %>
">  /stamp.jpg" width="100" height="70" border="0" alt="<%=objRec("Establishment and Town")%>" align=<%=aligncode%>>
<%end if%>
"><%= objRec("Accommodation_Type")%>
<%=objRec("Website Text")%>
<%if objRec("Facilities for the Disabled")<> "" Then %>  " align="absmiddle">
<%end if%> <%=objRec("WCTB/ETB/CTB")%>
<%=objRec("Checked Gradings")%> Tel: <%=objRec("Telephone")%>
|
|
<%
objRec.MoveNext
x=x+1
loop
objRec.Close
Set objRec = Nothing
objConn.Close
Set objConn=Nothing
%>
|
